// 20020917
// Funktion tc01() zum Testen des Record lock
tst20020917()
